home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Graphics Programming (2nd Edition) / Visual Basic Graphics Programming 2nd Edition.iso / Src / Ch12 / TrWave.cls < prev    next >
Text File  |  1999-06-17  |  774b  |  30 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "TransWave"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Option Explicit
  15. ' A wavy transformation.
  16.  
  17. Implements Transformation
  18.  
  19. ' Transformation parameters.
  20. Public Amplitude As Single
  21. Public Period As Single
  22. ' Transform the point (X, Y).
  23. Private Sub Transformation_Transform(X As Single, Y As Single)
  24. Dim new_x As Single
  25.  
  26.     new_x = X + Amplitude * Sin(Y * 6.28 / Period)
  27.     Y = Y + Amplitude * Sin(X * 6.28 / Period)
  28.     X = new_x
  29. End Sub
  30.